unit uLoading;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeelPainters,
  cxContainer, cxEdit, dxGDIPlusClasses, cxImage, JvComponentBase,
  JvFormTransparent, cxLabel, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, cxLookAndFeels;

type
  TfmLoading = class(TForm)
    JvTransparentForm1: TJvTransparentForm;
    cxLabel1: TcxLabel;
    cxImage1: TcxImage;
    cxLabel4: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    procedure cxImage1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmLoading: TfmLoading;

implementation

{$R *.dfm}

procedure TfmLoading.cxImage1Click(Sender: TObject);
begin
  Close;
end;

procedure TfmLoading.FormShow(Sender: TObject);
begin
  cxLabel2.Caption := '';
  cxLabel3.Caption := '';
  cxLabel4.Caption := '';
  cxLabel5.Caption := '';
  cxLabel6.Caption := '';
end;

end.
